COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		<ZPRICE>BAYSAI.SAI  -- A SET OF BAYSIC SAIL DECLARATIONS
C00006 ENDMK
C⊗;
COMMENT		<ZPRICE>BAYSAI.SAI  -- A SET OF BAYSIC SAIL DECLARATIONS;

IFCR NOT DECLARATION(BAYSAISW!) THENC
DEFINE	BAYSAISW!=TRUE;

REQUIRE "[]()" DELIMITERS;

REDEFINE	!=[COMMENT],	THRU=[STEP 1 UNTIL],	DOWNTO=[STEP -1 UNTIL],
	CR=['15&0],	LF=['12&0],	CRLF=[('15&'12)],	REPEAT=[WHILE TRUE DO],
	TAB=["	"],	FORMFEED=['14&0],	ff=['14&'0];

INTEGER DUM,ZILCH;	STRING SDUM,SZILCH;	REAL RDUM,RZILCH;
! CONVENTION: the DUMs are super temps--anyone can use any time.
	    The ZILCHS are data sinks--they are never(never)read;

EXTERNAL INTEGER !SKIP!;
DEFINE	CALLEXIT=[START!CODE '47000000012 END];  ! CLOSES CHANS AND CALLS EXIT;

DEFINE FIXERN(I,R)=[QUICK!CODE
		FIXR '13,R;
		MOVEM '13,I;
		END],
	FLTRN(I,R)=[QUICK!CODE
		FLTR '13,I;
		MOVEM '13,R;
		END];

DEFINE	SOURCE!(FIL)=[REQUIRE "FIL" SOURCE!FILE],
	LOAD!(FIL)=[REQUIRE "FIL" LOAD!MODULE; REQUIRE " LOA"&"D!(FIL) " MESSAGE],
	LIB!(FIL)=[require "FIL" library; require " LI"&"B!(FIL) " message],
	SOURCE!L(FIL)=[REQUIRE "<ZPRICE>FIL" SOURCE!FILE],
	LOAD!L(FIL)=[REQUIRE "<ZPRICE>FIL" LOAD!MODULE; REQUIRE " LOA"&"D!L(FIL) " MESSAGE],
	LIB!L(FIL)=[require "<ZPRICE>FIL" library; require " LI"&"B!L(FIL) " message],
	SOURCE!B(FIL)=[REQUIRE "<BABU>FIL" SOURCE!FILE],
	LOAD!B(FIL)=[REQUIRE "<BABU>FIL" LOAD!MODULE; REQUIRE " LOA"&"D!B(FIL) " MESSAGE],
	LIB!B(FIL)=[require "<BABU>FIL" library; require " LI"&"B!B(FIL) " message],
	SOURCE!V(FIL)=[REQUIRE "<ZPRICE>FIL" SOURCE!FILE],
	LOAD!V(FIL)=[REQUIRE "<ZPRICE>FIL" LOAD!MODULE; REQUIRE " LOA"&"D!V(FIL) " MESSAGE],
	LIB!V(FIL)=[require "<ZPRICE>FIL" library; require " LI"&"B!V(FIL) " message];
DEFINE	MESC(MSG)=[REQUIRE CVPS(MSG) MESSAGE],
	MESSC(MSG) =[REQUIRE "
"&CVPS(MSG) MESSAGE];

DEFINE !! =[COMMENT],	!!!=[COMMENT],	!!!!=[COMMENT],
	!SOURCE!=[SOURCE!],	!SOURCE!L=[SOURCE!L];

DEFINE	ISALTMODE(A)=[((A)='33 OR (A)='175 OR (A)='176)];

IFCR NOT DECLARATION(HISEGGING) THENC DEFINE HISEGGING=-1; ENDC
	! Default says low segment stuff;

REQUIRE UNSTACK!DELIMITERS;
ENDC
! END OF BAYSAI.SAI[A710SA00];